﻿Imports System.ComponentModel.Composition
Imports System.Windows.Media
Imports Microsoft.VisualStudio.Text.Classification
Imports Microsoft.VisualStudio.Utilities

''' <summary>
''' Defines an editor format for our EditorClassifier1 type that has a purple background
''' and is underlined.
''' </summary>
<Export(GetType(EditorFormatDefinition))>
<ClassificationType(ClassificationTypeNames:="EditorClassifier1")>
<Name("EditorClassifier1")>
<UserVisible(True)>
<Order(After:=Priority.Default)>
NotInheritable Class EditorClassifier1Format
    Inherits ClassificationFormatDefinition
    
    ''' <summary>
    ''' Defines the visual format for the "EditorClassifier1" classification type
    ''' </summary>
    Public Sub New()
        Me.DisplayName = "EditorClassifier1"
        Me.BackgroundColor = Colors.Azure
        ' System.Windows.TextDecorations.Underline
        Me.TextDecorations = System.Windows.TextDecorations.OverLine
        Me.IsBold = True
        Me.BackgroundColor = System.Windows.Media.Colors.Black
    End Sub
    
End Class
